home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / info-sys / www / tkhtml-2.3 / tkhtml-2 / tkHTML-2.3 / tkHTML < prev    next >
Encoding:
Text File  |  1995-02-26  |  3.0 KB  |  132 lines
  1. #!/usr/local/bin/wwwish -f
  2. ##################
  3. # tkHTML-2.2 Jan 19, 1995
  4. # (C) 1994 Liem Bahneman
  5. #
  6. # Permission to use, copy, modify, and distribute this software
  7. # and its documentation for any purpose and without fee is granted
  8. # provided that the above copyright notice appears in all copies.
  9. # It s provided "as is" without express or implied waraty.
  10.  
  11.  
  12. # might have to change this:
  13. global tixlibdir tkhtmllibdir
  14. set tixlibdir "/usr/local/lib/tix"
  15. set tkhtmllibdir "/usr/local/lib/tkHTML"
  16.  
  17. lappend auto_path $tixlibdir
  18. lappend auto_path $tkhtmllibdir
  19.  
  20. # don't touch:
  21. tixInit -libdir $tixlibdir -binding Motif -fontset 14Point -scheme SGIGray
  22.  
  23. global insertspec insertesc
  24. source $tkhtmllibdir/menus.tcl
  25. source $tkhtmllibdir/toolbar.tcl
  26. source $tkhtmllibdir/maintext.tcl
  27. source $tkhtmllibdir/files.tcl
  28. source $tkhtmllibdir/preview.tcl
  29. source $tkhtmllibdir/help.tcl
  30. source $tkhtmllibdir/entities.tcl
  31.  
  32. global filename textsize textfont CUTBUFFER version typeface event netscape
  33. global searchstring direction searchstate replacestring confirm confirmopt
  34.  
  35. # read the user's own config file
  36. if { [ file exists ~/.tkHTML ] } { 
  37.     source ~/.tkHTML 
  38. } else {
  39.     source $tkhtmllibdir/config.tcl
  40. }
  41.  
  42. #} else {
  43. # set defaults (see config.tcl for expanded explanation)
  44. #    set textfont "New Century Schoolbook"
  45. #    set textsize "14"
  46. #    set typeface "helvetica"
  47. #    set tempfile "/tmp/.tkhtml[pid].html"
  48. #    set newheader 1
  49. #    set insertspec 1
  50. #    set insertesc 1
  51. #    set netscape 1
  52. #}
  53.  
  54. global newheader
  55.  
  56. set searchstate "for"
  57. set direction "for"
  58. set searchstring ""
  59. set version "2.3"
  60.  
  61. # globals for previewing
  62.   global tempfile
  63.   global {tkW3ConfigFontDefault}
  64.   set {tkW3ConfigFontDefault} {times}
  65.   global {tkW3ConfigFontList}
  66.   set {tkW3ConfigFontList} {\\\{times Times\\\}}
  67.  
  68.   global {tkW3HtPage}
  69.   set {tkW3HtPage(address)} {null}
  70.   set {tkW3HtPage(anchor.index)} {2}
  71.   set {tkW3HtPage(anchor.name.1)} {}
  72.   set {tkW3HtPage(base)} {null}
  73.   set {tkW3HtPage(base.use)} {0}
  74.   set {tkW3HtPage(id.)} {h1}
  75.   set {tkW3HtPage(image.1)} {null}
  76.   set {tkW3HtPage(image.anchor.1)} {}
  77.   set {tkW3HtPage(image.index)} {2}
  78.   set {tkW3HtPage(image.ismap.1)} {0}
  79.   set {tkW3HtPage(index.href)} {}
  80.   set {tkW3HtPage(is_index)} {0}
  81.   set {tkW3HtPage(link)} {}
  82.   set {tkW3HtPage(modified)} {0}
  83.   set {tkW3HtPage(next_id)} {}
  84.   set {tkW3HtPage(title)} {null}
  85.   global {tkW3HtText}
  86.   set {tkW3HtText(anchor.max)} {0}
  87.   set {tkW3HtText(background)} {#bfbfbfbfbfbf}
  88.   set {tkW3HtText(char.stack)} {}
  89.   set {tkW3HtText(image.max)} {0}
  90.   set {tkW3HtText(in_anchor)} {0}
  91.   set {tkW3HtText(list.stack)} {}
  92.   set {tkW3HtText(para.stack)} {}
  93.  
  94. # help globals
  95. global w helpprev helpnext xpos ypos
  96.  
  97. global current event CUTBUFFER 
  98. set filename ""
  99.  
  100. ########################################3
  101. # build everything
  102.  
  103. wm title . "tkHTML $version"
  104. wm maxsize . 1024 768
  105.  
  106. MkMainMenu
  107. MkToolbar
  108. MkMainText
  109. MkMainStatus
  110. SetMainFontAndSize
  111. MkEntities
  112.  
  113. # check if there's a file on the command line
  114. if {[string length $argv] != 0} {
  115.     InitFile $argv
  116. } else {
  117.     if {$newheader == 1} {
  118.         Header
  119.  
  120.     }
  121. }
  122.  
  123. if {[file exists $tkhtmllibdir/icon] == 1} {
  124.     wm iconbitmap . "@$tkhtmllibdir/icon"
  125. }
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.